home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / DFUE / CIM / is / updatemanual.iscript < prev    next >
Text File  |  2000-01-01  |  4KB  |  192 lines
  1. ;
  2. ; Installer Script for CIM V3
  3. ; $VER: CIMInstallerScript 3.1.21 (01.01.00) Written by Jan-Erik Tervo 1999-2000
  4. ; Installer version 42.12 or better recommended
  5. ;
  6.  
  7. (ONERROR
  8.       (EXIT)
  9.         )
  10.  
  11.  
  12.  
  13. (SET @default-dest "")
  14. (SET _stakki 15000)
  15.  
  16.  
  17. (SET i_ver (/ @installer-version 65536))
  18. (SET i_rev (- @installer-version (* i_ver 65536)))
  19.  
  20.  
  21. (IF  (exists "CIM:" (noreq))
  22.  
  23.  
  24.      (
  25.  
  26.      
  27.      (IF  (exists "CIM:DOCS/MANUAL/mversio" (noreq))
  28.      
  29.      (
  30.      (SET cimm_vernum (getversion "CIM:DOCS/MANUAL/mversio"))
  31.      (SET cimm_ver (/ cimm_vernum 65536))
  32.      (SET cimm_rev (- cimm_vernum (* cimm_ver 65536)))
  33.      
  34.      )
  35.      
  36.      (
  37.      
  38.      (SET cimm_vernum (getversion "CIM:DOCS/MANUAL/mversion.html"))
  39.      (SET cimm_ver (/ cimm_vernum 65536))
  40.      (SET cimm_rev (- cimm_vernum (* cimm_ver 65536)))
  41.      
  42.      
  43.      ))
  44.  
  45.      (SET ncimm_vernum (getversion "stuff2/manual/mversion.html"))
  46.      (SET ncimm_ver (/ ncimm_vernum 65536))
  47.      (SET ncimm_rev (- ncimm_vernum (* ncimm_ver 65536)))
  48.  
  49.      
  50.      
  51.      ; ENGLISH STRINGS
  52.  
  53.      (SET #alku
  54.           (cat "\n\CIM - (the Caller Id Manager)\ and the HTML-Manual are Copyrighted by Jan-Erik Tervo 1996, 1997, 1998, 1999, 2000.\n\nCharity- & Shareware.\n\n\n")
  55.      )
  56.  
  57.      (SET #where_to_str
  58.           (cat "Select where to install CIM HTML Manual (A sub directory will be created there.")
  59.      )
  60.  
  61.      (SET #str-alreadyi
  62.           (cat "\n\nYou have CIM HTML Manual already installed!\n\nVersion: " cimm_ver '.' cimm_rev "\n\Version to be installed: " ncimm_ver '.' ncimm_rev )
  63.      )
  64.  
  65.  
  66.      (SET #str-installingm
  67.           (cat "\n\nIstalling CIM HTML Manual files\n")
  68.      )
  69.  
  70.      (SET #str-installingii
  71.           (cat "\n\nIcon info will be read\n")
  72.      )
  73.  
  74.      (SET #str-chooseb
  75.           (cat "\nChoose a HTML-browser you want to use.")
  76.      )
  77.  
  78.  
  79.   
  80.  
  81.  
  82.      (SET #tyok "SYS:Internet")
  83.  
  84.      (COMPLETE 0)
  85.  
  86.      (MESSAGE #alku)
  87.  
  88.      (IF cimm_vernum
  89.      
  90.                (IF (ASKBOOL(
  91.                          (help "No help for this function")
  92.                          (prompt #str-alreadyi)
  93.                          (choices "Cancel" "Proeed")
  94.                          
  95.                        )
  96.                
  97.                
  98.                (IF (> i_ver 42)
  99.                
  100.                          (ICONINFO
  101.                               (dest "CIM:DOCS/MANUAL/index.html")
  102.                               (prompt #str-installingii)
  103.                               (getdefaulttool "#tyok")
  104.                               
  105.                          )
  106.                 
  107.                         
  108.                          
  109.                          )
  110.                )
  111.                 
  112.                (EXIT (quiet))) 
  113.                          
  114.                     
  115.      )
  116.  
  117.  
  118.      
  119.      (SET @default-dest "CIM:DOCS")
  120.  
  121.      (SET CIMmdir "CIM:DOCS")
  122.  
  123.  
  124.      (SET #tyok
  125.           (askfile 
  126.  
  127.                     (prompt #str-chooseb)
  128.                     (help "No help")
  129.                     (default #tyok)
  130.                     )
  131.      
  132.      )
  133.      
  134.      
  135.      (ICONINFO
  136.           (dest #tyok)
  137.           (prompt #str-installingii)
  138.           (getstack "_stakki")
  139.      )
  140.      
  141.      
  142.      
  143.      
  144.      (COMPLETE 65)
  145.  
  146.      ;  Install Stuff
  147.  
  148.  
  149.      (COPYFILES
  150.         (help "No help for this function")
  151.         (source "stuff2/")
  152.         (pattern "#?")
  153.         (dest CIMmdir)
  154.         (prompt #str-installingm)
  155.         )
  156.         
  157.         
  158.  
  159.      (COMPLETE 80)
  160.      
  161.      (DELETE "CIM:DOCS/MANUAL/mversio")
  162.      
  163.      (DELETE "CIM:DOCS/MANUAL/mversio.asc")
  164.      
  165.      (COMPLETE 90)
  166.  
  167.  
  168.      (TOOLTYPE
  169.          (dest "CIM:DOCS/MANUAL/index.html")
  170.          
  171.          (setdefaulttool #tyok)
  172.          (setstack _stakki)
  173.          
  174.         )
  175.      
  176.  
  177.  
  178.  
  179.      (MESSAGE "\n\nInstallation of CIM's HTML-Manual completed.\nIt was installed to CIM:DOCS/MANUAL/\n\n\nCIM's Official Home Page located at: http://www.netti.fi/~jet/cim/ and http://www.saunalahti.fi/~jet3/cim/ \n")
  180.  
  181.      )
  182.      (MESSAGE "CIM is not installed correctly! (No CIM: assign.) Can't update.")
  183. )
  184.  
  185.  
  186. (COMPLETE 100)
  187.  
  188. ; end of installation
  189.  
  190. (EXIT)
  191.  
  192.